home *** CD-ROM | disk | FTP | other *** search
/ How Would You Survive? / How Would You Survive (1995)(Grolier)[Mac-PC].iso / pc / vikingw.dir / 01658_Script_The Gods < prev    next >
Text File  |  1995-09-12  |  9KB  |  315 lines
  1. global gbeenclicked, gQuest
  2.  
  3. on VGodsRollovers1
  4.   set gbeenclicked = 0
  5.   if (not(CheckClickedStatus(gQuest))) then
  6.     if rollover(7) then
  7.       repeat while rollover(7)
  8.         VikingCursor
  9.         puppetsprite 21, true
  10.         set the locH of sprite 21 to 317
  11.         set the locV of sprite 21 to 154
  12.         updatestage
  13.         if (the mousedown) then
  14.           set gbeenclicked = 1
  15.         else
  16.           --the mouse is up
  17.           if gbeenclicked = 1 then
  18.             repeat while gbeenclicked = 1
  19.               AnimateLoop 7, 953, 2, 0, 3
  20.             end repeat
  21.           end if
  22.         end if
  23.       end repeat
  24.       set the locH of sprite 21 to 999
  25.       updatestage
  26.       puppetsprite 21, false
  27.     else
  28.       if rollover(8) then
  29.         ArrowCursor
  30.         repeat while rollover(8)
  31.           set the locH of sprite 9 to 193
  32.           set the locV of sprite 9 to 353
  33.           updatestage
  34.         end repeat
  35.         set the locH of sprite 9 to 999
  36.         updatestage
  37.       else
  38.         if rollover(10) then
  39.           ArrowCursor
  40.           repeat while rollover(10)
  41.             set the locH of sprite 11 to 272
  42.             set the locV of sprite 11 to 321
  43.             updatestage
  44.           end repeat
  45.           set the locH of sprite 11 to 999
  46.           updatestage
  47.         else
  48.           if rollover(12) then
  49.             ArrowCursor
  50.             repeat while rollover(12)
  51.               set the locH of sprite 13 to 273
  52.               set the locV of sprite 13 to 232
  53.               updatestage
  54.             end repeat
  55.             set the locH of sprite 13 to 999
  56.             updatestage
  57.           else
  58.             if rollover(14) then
  59.               ArrowCursor
  60.               repeat while rollover(14)
  61.                 set the locH of sprite 15 to 411
  62.                 set the locV of sprite 15 to 333
  63.                 updatestage
  64.               end repeat
  65.               set the locH of sprite 15 to 999
  66.               updatestage
  67.             else
  68.               if rollover(16) then
  69.                 ArrowCursor
  70.                 repeat while rollover(16)
  71.                   set the locH of sprite 17 to 456
  72.                   set the locV of sprite 17 to 379
  73.                   updatestage
  74.                 end repeat
  75.                 set the locH of sprite 17 to 999
  76.                 updatestage
  77.               else
  78.                 if rollover(18) then
  79.                   ArrowCursor
  80.                   repeat while rollover(18)
  81.                     set the locH of sprite 19 to 145
  82.                     set the locV of sprite 19 to 363
  83.                     updatestage
  84.                   end repeat
  85.                   set the locH of sprite 19 to 999
  86.                   updatestage
  87.                 else
  88.                   if rollover(20) then
  89.                     repeat while rollover(20)
  90.                       VikingCursor
  91.                       set the locH of sprite 43 to 453
  92.                       set the locV of sprite 43 to 87
  93.                       updatestage
  94.                       if (the mousedown) then
  95.                         set gbeenclicked = 1
  96.                       else
  97.                         --the mouse is up
  98.                         if gbeenclicked = 1 then
  99.                           repeat while gbeenclicked = 1
  100.                             set the locH of sprite 43 to 853
  101.                             updatestage
  102.                             AnimateLoop 6, 1000, 4, "SV361001.AIF", 1
  103.                           end repeat
  104.                         end if
  105.                       end if
  106.                     end repeat
  107.                     set the locH of sprite 43 to 999
  108.                     updatestage
  109.                   else
  110.                     if rollover(27) then
  111.                       ArrowCursor
  112.                       repeat while rollover(27)
  113.                         set the locH of sprite 28 to 435
  114.                         set the locV of sprite 28 to 214
  115.                         updatestage
  116.                       end repeat
  117.                       set the locH of sprite 28 to 999
  118.                       updatestage
  119.                     else
  120.                       if rollover(40) then
  121.                         HandCursor
  122.                       else
  123.                         if rollover(41) then
  124.                           HandCursor
  125.                         else
  126.                           if rollover(42) then
  127.                             HandCursor
  128.                           else
  129.                             ArrowCursor
  130.                           end if
  131.                         end if
  132.                       end if
  133.                     end if
  134.                   end if
  135.                 end if
  136.               end if
  137.             end if
  138.           end if
  139.         end if
  140.       end if
  141.     end if
  142.   end if
  143.   RandomQuestion(gQuest)
  144. end
  145.  
  146. on VGodsRollovers2
  147.   set gbeenclicked = 0
  148.   if (not(CheckClickedStatus(gQuest))) then
  149.     if rollover(16) then
  150.       ArrowCursor
  151.       repeat while rollover(16)
  152.         set the locH of sprite 17 to 429
  153.         set the locV of sprite 17 to 287
  154.         updatestage
  155.       end repeat
  156.       set the locH of sprite 17 to 999
  157.       updatestage
  158.     else
  159.       if rollover(18) then
  160.         ArrowCursor
  161.         repeat while rollover(18)
  162.           set the locH of sprite 19 to 429
  163.           set the locV of sprite 19 to 224
  164.           updatestage
  165.         end repeat
  166.         set the locH of sprite 19 to 999
  167.         updatestage
  168.       else
  169.         if rollover(20) then
  170.           ArrowCursor
  171.           repeat while rollover(20)
  172.             set the locH of sprite 21 to 230
  173.             set the locV of sprite 21 to 340
  174.             updatestage
  175.           end repeat
  176.           set the locH of sprite 21 to 999
  177.           updatestage
  178.         else
  179.           if rollover(12) then
  180.             ArrowCursor
  181.             repeat while rollover(12)
  182.               set the locH of sprite 13 to 429
  183.               set the locV of sprite 13 to 360
  184.               updatestage
  185.             end repeat
  186.             set the locH of sprite 13 to 999
  187.             updatestage
  188.           else
  189.             if rollover(27) then
  190.               ArrowCursor
  191.               repeat while rollover(27)
  192.                 set the locH of sprite 28 to 448
  193.                 set the locV of sprite 28 to 123
  194.                 updatestage
  195.               end repeat
  196.               set the locH of sprite 28 to 999
  197.               updatestage
  198.             else
  199.               if rollover(9) then
  200.                 repeat while rollover(9)
  201.                   VikingCursor
  202.                   if (the mousedown) then
  203.                     set gbeenclicked = 1
  204.                   else
  205.                     --the mouse is up
  206.                     if gbeenclicked = 1 then
  207.                       repeat while gbeenclicked = 1
  208.                         Religion
  209.                       end repeat
  210.                     end if
  211.                   end if
  212.                 end repeat
  213.               else
  214.                 if rollover(39) then
  215.                   HandCursor
  216.                 else
  217.                   if rollover(41) then
  218.                     HandCursor
  219.                   else
  220.                     if rollover(42) then
  221.                       HandCursor
  222.                     else
  223.                       ArrowCursor
  224.                     end if
  225.                   end if
  226.                 end if
  227.               end if
  228.             end if
  229.           end if
  230.         end if
  231.       end if
  232.     end if
  233.   end if
  234.   RandomQuestion(gQuest)
  235. end
  236.  
  237. on religion
  238.   ArrowCursor
  239.   puppetsprite 6, true  
  240.   puppetsprite 7, true  
  241.   puppetsprite 8, true  
  242.   set gCast1 = the castnum of sprite 6
  243.   set gCast2 = the castnum of sprite 7
  244.   set gCast3 = the castnum of sprite 8
  245.   puppetsound "SV361104.AIF"
  246.   updatestage
  247.   set the castnum of sprite 8 = gCast3 + 1
  248.   set the castnum of sprite 7 = gCast2 + 1
  249.   updatestage
  250.   wait .3
  251.   set the castnum of sprite 7 = gCast2 + 2
  252.   updatestage
  253.   wait .2
  254.   set the castnum of sprite 8 = gCast3
  255.   updatestage
  256.   wait .3
  257.   set the castnum of sprite 7 = gCast2
  258.   updatestage
  259.   wait .2
  260.   set count = 0
  261.   puppetsound "SV361101.AIF"
  262.   repeat while count < 3 and (the mouseUp)
  263.     updatestage
  264.     set the castnum of sprite 6 = gCast1 + 1
  265.     set the castnum of sprite 7 = gCast2 + 1
  266.     updatestage
  267.     wait .3
  268.     
  269.     set the castnum of sprite 7 = gCast2 + 2
  270.     updatestage
  271.     wait .3
  272.     
  273.     set the castnum of sprite 6 = gCast1
  274.     set the castnum of sprite 7 = gCast2
  275.     updatestage
  276.     wait .3
  277.     
  278.     set the castnum of sprite 7 = gCast2 + 1
  279.     updatestage
  280.     wait .3
  281.     
  282.     set the castnum of sprite 7 = gCast2 + 2
  283.     updatestage
  284.     wait .3
  285.     
  286.     set the castnum of sprite 7 = gCast2
  287.     updatestage
  288.     wait .3
  289.     
  290.     set count = count + 1
  291.   end repeat
  292.   puppetsound "SV361104.AIF"
  293.   set the castnum of sprite 8 = gCast3 + 1
  294.   set the castnum of sprite 7 = gCast2 + 1
  295.   updatestage
  296.   wait .3
  297.   set the castnum of sprite 7 = gCast2 + 2
  298.   updatestage
  299.   wait .2
  300.   set the castnum of sprite 8 = gCast3
  301.   updatestage
  302.   wait .3
  303.   set the castnum of sprite 7 = gCast2
  304.   updatestage
  305.   set the castnum of sprite 6 = gCast1
  306.   puppetsprite 6, false  
  307.   puppetsprite 7, false  
  308.   puppetsprite 8, false
  309.   updatestage
  310.   puppetsound 0
  311.   set gBeenClicked = 0
  312. end 
  313.  
  314.  
  315.